home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / util / sys / Make060.lha / Make060 / Make060.s < prev    next >
Text File  |  1997-09-03  |  2KB  |  48 lines
  1. *********************************************************************************************************
  2. *                                                    *
  3. *    Make060 assembler version v1.1                                    *
  4. *                                                    *
  5. *    Author:        Tim Jacobs, original C source by Andreas Kleinert                *
  6. *                                                    *
  7. *    This code was produced for Faeries Geneses.                            *
  8. *                                                    *
  9. *********************************************************************************************************
  10. *                                                    *
  11. *    I just downloaded Make060 from the Aminet and had a quick look at it. Nothing unusual, until    *
  12. *    I noticed the filesize of the program. I looked at the C-source and discovered that this could    *
  13. *    be done about 5-6 times smaller in assembler! So here it is :)                    *
  14. *                                                    *
  15. *********************************************************************************************************
  16.  
  17.     include    exec/exec_lib.i
  18.     include    exec/execbase.i
  19.  
  20. ; If you still have an old version of the execbase.i (without the 060 definition, I changed it
  21. ; manually ;).. Then add the following line after the 68040 definition:
  22. ;
  23. ;         BITDEF  AF,68060,7      ; Set if 68060
  24. ;
  25. ; And you should have no problems assembling this with any Devpac version...
  26.  
  27. *********************************************************************************************************
  28.     
  29.     include    misc/easystart.i
  30.  
  31. ; This is an included source that handles all WBStartup and Workbench messages...
  32.  
  33. *********************************************************************************************************
  34.     
  35. main:
  36.     bra    .go
  37.     
  38.     dc.b    '$VER: Make060a v1.1 (02-Sep-1997)',0
  39.  
  40. .go:
  41.     CALLEXEC Forbid
  42.     move.w    #1,d0
  43.     lsl.w    #AFB_68060,d0
  44.     or.w    d0,AttnFlags(a6)
  45.     CALLEXEC Permit
  46.     rts
  47.  
  48.